// Dada la lista de instrucciones de un bloque,
// las recorre y calcula el tamaño de las
// expresiones e1++e2 que aparecen en ellas.
void gencodeCONCATsetsizes(AST *a) {
  for (AST *a1=a->down;a1!=0;a1=a1->right) {
    gencodeconcatsetsizes(a1);
  }
  if (a->kind=="++") a->tp->size = child(a,0)->tp->size +
                                   child(a,1)->tp->size;
}
